Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный элемент — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
RANDOMIZE TIMER
DIM a(4, 4)
mini = 2: minj = 1
maxi = 3: maxj = 1
a(1, 2) = 100
a(1, 3) = 0
  
FOR j = 1 TO 4
        FOR i = 1 TO 4
                a(j, i) = INT(RND * 89) + 10
                IF a(j, i) > a(maxj, maxi) THEN maxj = j: maxi = i
                IF a(j, i) < a(minj, mini) THEN minj = j: mini = i
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j
SWAP a(minj, mini), a(maxj, maxi): PRINT
FOR j = 1 TO 4
        FOR i = 1 TO 4
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j

Похожие записи/страницы: